Imports System.Data.SqlClient
Imports System.Data, System.Data.OleDb
Public Class Datamanager
    ' Const Db As String = "Data Source=.\SQLExpress;Integrated Security=True;User Instance=True;AttachDBFilename=|DataDirectory|Accounts.mdf"
    Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\222.mdb"
    Public CON As New OleDbConnection(ConStr)
    Public DS As New DataSet
    Public SQLstr As String = "SELECT * FROM Table1"
  

    Public Shared Function FillDataSet(ByVal dataSet As DataSet, ByVal queryString As String, ByVal StrTbl As String) As DataSet
        Using connection As New OleDbConnection(queryString)
            Dim adapter As New OleDbDataAdapter(queryString, connection)
            adapter.SelectCommand = New OleDbCommand(queryString, connection)
            adapter.Fill(dataSet, StrTbl)
            Return dataSet
        End Using
    End Function

    Public Shared Function fillTable(ByVal Dt As DataTable, ByVal queryString As String)
        Using connection As New OleDbConnection(queryString)
            Dim adapter As New OleDbDataAdapter(queryString, connection)
            adapter.SelectCommand = New OleDbCommand(queryString, connection)
            Dt.Clear()
            adapter.Fill(Dt)
            Return Dt
        End Using
    End Function

    Public Shared Sub UpdateAccount(ByVal SUB_NO As Integer, ByVal SUB_NAME As String, _
       ByVal SUB_INITIAL_BALANCE_C As Double, ByVal SUB_INITIAL_BALANCE_D As Double)

      
    End Sub
    Public Shared Sub RemoveAccount(ByVal SUB_NO As Integer)
       
    End Sub
End Class
